#Include "Protheus.ch"

CLASS TClassTst FROM LongClassName
	DATA cNome AS STRING READONLY DEFAULT "Everton"
	METHOD New() CONSTRUCTOR
ENDCLASS

//-----------------------------------------------------------------
METHOD New() CLASS TClassTst
RETURN SELF

//-----------------------------------------------------------------